home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / cd_einrichten < prev    next >
Text File  |  1996-07-19  |  16KB  |  447 lines

  1. ; $VER: CD einrichten 1.1 © David Göhler (17.05.96)
  2. ;
  3. (complete 0)
  4.  
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6. ;
  7. ; NAMING SECTION
  8. ;
  9. ; first of all I set some vars to file names. This will help me changing
  10. ; names easely.
  11. ;
  12.  
  13. (set #EnvDir            "AmigaCD")                      ; Name des ENV-Verzeichnisses
  14.  
  15. (set #ViewTextEnvName   (cat #EnvDir "/Text_Anzeiger"))  ; Text
  16. (set #ViewImageEnvName  (cat #EnvDir "/Bild_Anzeiger"))  ; Bilder
  17. (set #ViewGuideEnvName  (cat #EnvDir "/Guide_Anzeiger")) ; Guides
  18. (set #ViewHTMLEnvName   (cat #EnvDir "/HTML_Anzeiger"))  ; HTML
  19. (set #PlayModEnvName    (cat #EnvDir "/Mod_Spieler"))    ; Mods spielen
  20. (set #PlaySampleEnvName (cat #EnvDir "/Sample_Spieler")) ; sample spielen
  21. (set #PlayAnimEnvName   (cat #EnvDir "/Anim_Spieler")) ; sample spielen
  22. (set #SchleifenEnvName  (cat #EnvDir "/Schleifen"))      ; Schleifen bei Animationen?
  23.  
  24. (set #defaultTextTool   ":Tools/most/most")
  25. (set #defaultImageTool  ":Tools/viewtek/vt")
  26. (set #defaultGuideTool  ":C/AmigaGuide")
  27. (set #defaultHTMLTool   ":Tools/AWeb/AWeb")
  28. (set #defaultModTool    ":Tools/DeliTracker/DeliTracker2")
  29. (set #defaultSampleTool ":C/playsound")
  30. (set #defaultAnimTool   ":Tools/MVB_PD/MVBroadCast")
  31. (set #defaultSchleife   "0")
  32.  
  33. (set #MakeAssign        ":MakeAssign")
  34.  
  35. (set @default-dest      "") ; wird nirgendwo installiert
  36.  
  37. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38. ;
  39. ; LANGUAGE SECTION
  40. ;
  41. ; to support more than only one language, there is a special section for
  42. ; each supported language.
  43. ;
  44.  
  45. ;(if (<> @language "english")
  46. ;  (if (<> @language "deutsch")
  47. ;      ( set @language "english")
  48. ;  )
  49. ;)
  50.  
  51. ;==========================================================================
  52. ; English strings
  53.  
  54. (if (= @language "english")
  55.     (set default_lang 4)
  56. )
  57.  
  58.  
  59. ;=============================================================================
  60. ; German strings
  61.  
  62. (if (= @language "deutsch")
  63.     (set default_lang 2)
  64. )
  65.  
  66. ;=============================================================================
  67. ; make sure we are running under V37
  68.  
  69. (if (< (/ (getversion) 65536) 37)
  70.     (abort #bad-kick)
  71. )
  72.  
  73. ;=============================================================================
  74. ; if something unexpected happens, do this at least
  75.  
  76. ; (onerror (run (cat "delete " #TempDir " QUIET FORCE ALL")))
  77.  
  78. ;******************************************************************
  79. ;******************* FULL INSTALL *********************************
  80. ;******************************************************************
  81.  
  82. ;=============================================================================
  83. ; say hi!
  84.  
  85. (welcome
  86.    "Dieses Programm hilft Ihnen, ein paar Einstellungen für die "
  87.    "Benutzung der CD vorzunehmen und dauerhaft zu sichern."
  88. )  ; hier kann der Benutzer aussuchen, wie gut er sich fühlt
  89.  
  90. ;(message ("Textanzeige-Variable: %s\n" #ViewTextEnvName)
  91. ;         ("Bildanzeige-Variable: %s\n" #ViewImageEnvName)
  92. ;         ("Guideanzeige-Variable: %s\n" #ViewGuideEnvName)
  93. ;)
  94.  
  95. ;=============================================================================
  96. ; what we will do the next time together
  97.  
  98. (complete 5)
  99.  
  100. ; Benutzer fragen, ob die Einstellungen auch nach dem Booten
  101. ; noch gelten sollen?
  102.  
  103. (set save
  104.        (askbool (prompt  "Sollen die Einstellungen dauerhaft gespeichert werden, damit Sie auch nach einem Reset noch zur Verfügung stehen?")
  105.                 (help    "Klicken Sie auf 'Ja', um die Einstellungen in ENVARC: dauerhaft zu speichern\n\nBei 'Nein' gehen Sie nach einem Neustart verloren.")
  106.                 (default 1)
  107.                 (choices "Ja" "Nein")
  108.        )
  109. )
  110.  
  111. (complete 10)
  112. ;=============================================================================
  113. ; Die große Auswahl, was man verändern möchte ...
  114.  
  115. (set drivermask (askoptions
  116.                     (choices "Text-Anzeiger"
  117.                              "Bild-Anzeiger"
  118.                              "AmigaGuide-Anzeiger"
  119.                              "HTML-Anzeiger"
  120.                              "Mod-Spieler"
  121.                              "Soundsample-Spieler"
  122.                              "Animation-Spieler"
  123.                     )
  124.                     (prompt "Markieren Sie die Anzeige-Programme, für die Sie einen eigenen Anzeiger einstellen möchten.")
  125.                     (help   (cat "Sie können selbst ein Programm wählen, mit denen Bilder, Texte und AmigaGuide-Dateien angezeigt werden sollen."
  126.                                  "\n\nHier haben Sie die Möglichkeit festzulegen, für welche Art sie ein eigenes Programm wählen können."
  127.                                  "\n\nMarkieren Sie die Art, indem Sie vor den jeweiligen Text klicken."
  128.                             )
  129.                     )
  130.                     (default 0)
  131.                 )
  132. )
  133.  
  134. (complete 20)
  135.  
  136. (if (= (exists (cat "ENV:" #EnvDir) (noreq)) 0)
  137.     ( (makedir (cat "ENV:" #EnvDir))
  138.     )
  139. )
  140. (if (= 1 save)
  141.     (if (= (exists (cat "ENVARC:" #EnvDir) (noreq)) 0)
  142.            (makedir (cat "ENVARC:" #EnvDir))
  143.     )
  144. )
  145.  
  146. (complete 30)
  147.  
  148. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  149. (if (= (exists (cat "ENV:" #ViewTextEnvName) (noreq)) 0)
  150.     (textfile   (dest (cat "ENV:" #ViewTextEnvName))
  151.                 (append #defaultTextTool)
  152.     )
  153. )
  154.  
  155. (if (IN drivermask 0)                       ; Textanzeiger
  156.     (
  157.        (set defaultstr (getenv #ViewTextEnvName))  ; Inhalt der Variablen holen
  158.  
  159.        (set anzeiger                               ; Eingabe abwickeln
  160.           (askfile (prompt "Welches Programm zum Textanzeigen verwenden:")
  161.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von Texten verwenden wollen.\n\n"
  162.                                 "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
  163.                                 @askfile-help
  164.                            )
  165.                    )
  166.                    (default defaultstr)
  167.           )
  168.        )
  169.        (textfile   (dest (cat "ENV:" #ViewTextEnvName))
  170.                    (append anzeiger)
  171.        )
  172.        (if (= 1 save)
  173.            (textfile   (dest (cat "ENVARC:" #ViewTextEnvName))
  174.                        (append anzeiger)
  175.            )
  176.        )
  177.     )
  178. )
  179.  
  180. (complete 40)
  181.  
  182. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  183. (if (= (exists (cat "ENV:" #ViewImageEnvName) (noreq)) 0)
  184.     (textfile   (dest (cat "ENV:" #ViewImageEnvName))
  185.                 (append #defaultImageTool)
  186.     )
  187. )
  188.  
  189. (if (IN drivermask 1)                       ; Bildanzeiger
  190.     (
  191.        (set defaultstr (getenv #ViewImageEnvName)) ; Inhalt der Variablen holen
  192.  
  193.        (set anzeiger                               ; Eingabe abwickeln
  194.           (askfile (prompt "Welches Programm zum Bilderanzeigen verwenden:")
  195.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von Bildern verwenden wollen.\n\n"
  196.                                 "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
  197.                                 @askfile-help
  198.                            )
  199.                    )
  200.                    (default defaultstr)
  201.           )
  202.        )
  203.        (textfile   (dest (cat "ENV:" #ViewImageEnvName))
  204.                    (append anzeiger)
  205.        )
  206.        (if (= 1 save)
  207.            (textfile   (dest (cat "ENVARC:" #ViewImageEnvName))
  208.                        (append anzeiger)
  209.            )
  210.        )
  211.     )
  212. )
  213.  
  214. (complete 50)
  215.  
  216. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  217. (if (= (exists (cat "ENV:" #ViewGuideEnvName) (noreq)) 0)
  218.     (textfile   (dest (cat "ENV:" #ViewGuideEnvName))
  219.                 (append #defaultGuideTool)
  220.     )
  221. )
  222.  
  223. (if (IN drivermask 2)                       ; Guideanzeiger
  224.     (
  225.        (set defaultstr (getenv #ViewGuideEnvName)) ; Inhalt der Variablen holen
  226.  
  227.        (set anzeiger                               ; Eingabe abwickeln
  228.           (askfile (prompt "Welches Programm zum AmigaGuide-Anzeigen verwenden:")
  229.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von AmigaGuide-Dateien verwenden wollen.\n\n"
  230.                                 "Ab Amiga-OS 3.0 ist 'Sys:Utilities/Multiview' eine gute Wahl.\n\n"
  231.                                 @askfile-help
  232.                            )
  233.                    )
  234.                    (default defaultstr)
  235.           )
  236.        )
  237.        (textfile   (dest (cat "ENV:" #ViewGuideEnvName))
  238.                    (append anzeiger)
  239.        )
  240.        (if (= 1 save)
  241.            (textfile   (dest (cat "ENVARC:" #ViewGuideEnvName))
  242.                        (append anzeiger)
  243.            )
  244.        )
  245.     )
  246. )
  247.  
  248. (complete 60)
  249.  
  250. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  251. (if (= (exists (cat "ENV:" #ViewHTMLEnvName) (noreq)) 0)
  252.     (textfile   (dest (cat "ENV:" #ViewHTMLEnvName))
  253.                 (append #defaultHTMLTool)
  254.     )
  255. )
  256.  
  257. (if (IN drivermask 3)                       ; HTML-Anzeiger
  258.     (
  259.        (set defaultstr (getenv #ViewHTMLEnvName)) ; Inhalt der Variablen holen
  260.  
  261.        (set anzeiger                               ; Eingabe abwickeln
  262.           (askfile (prompt "Welches Programm zum HTML-Seiten-Anzeigen verwenden:")
  263.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Anzeigen von HTML-Dateien verwenden wollen.\n\n"
  264.                                 "Ab Amiga-OS 3.0 ist 'AWeb' eine gute Wahl.\n\n"
  265.                                 @askfile-help
  266.                            )
  267.                    )
  268.                    (default defaultstr)
  269.           )
  270.        )
  271.        (textfile   (dest (cat "ENV:" #ViewHTMLEnvName))
  272.                    (append anzeiger)
  273.        )
  274.        (if (= 1 save)
  275.            (textfile   (dest (cat "ENVARC:" #ViewHTMLEnvName))
  276.                        (append anzeiger)
  277.            )
  278.        )
  279.     )
  280. )
  281.  
  282. (complete 70)
  283.  
  284. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  285. (if (= (exists (cat "ENV:" #PlayModEnvName) (noreq)) 0)
  286.     (textfile   (dest (cat "ENV:" #PlayModEnvName))
  287.                 (append #defaultModTool)
  288.     )
  289. )
  290.  
  291. (if (IN drivermask 4)                       ; Mod-Spieler
  292.     (
  293.        (set defaultstr (getenv #PlayModEnvName)) ; Inhalt der Variablen holen
  294.  
  295.        (set anzeiger                               ; Eingabe abwickeln
  296.           (askfile (prompt "Welches Programm zum Abspielen von Musik-Mod(ulen) verwenden:")
  297.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen Mod-Dateien verwenden wollen.\n\n"
  298.                                 "Der 'Protracker' ist eine gute Wahl für den Anfang.\n\n"
  299.                                 @askfile-help
  300.                            )
  301.                    )
  302.                    (default defaultstr)
  303.           )
  304.        )
  305.        (textfile   (dest (cat "ENV:" #PlayModEnvName))
  306.                    (append anzeiger)
  307.        )
  308.        (if (= 1 save)
  309.            (textfile   (dest (cat "ENVARC:" #PlayModEnvName))
  310.                        (append anzeiger)
  311.            )
  312.        )
  313.     )
  314. )
  315.  
  316. (complete 80)
  317.  
  318. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  319. (if (= (exists (cat "ENV:" #PlaySampleEnvName) (noreq)) 0)
  320.     (textfile   (dest (cat "ENV:" #PlaySampleEnvName))
  321.                 (append #defaultSampleTool)
  322.     )
  323. )
  324.  
  325. (if (IN drivermask 5)                       ; Sample-Spieler
  326.     (
  327.        (set defaultstr (getenv #PlaySampleEnvName)) ; Inhalt der Variablen holen
  328.  
  329.        (set anzeiger                               ; Eingabe abwickeln
  330.           (askfile (prompt "Welches Programm zum Abspielen von digitalen Sounds verwenden:")
  331.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen von digitalen Sounds verwenden wollen.\n\n"
  332.                                 "Ab Amiga-OS 3.0 ist 'playsound' eine gute Wahl.\n\n"
  333.                                 @askfile-help
  334.                            )
  335.                    )
  336.                    (default defaultstr)
  337.           )
  338.        )
  339.        (textfile   (dest (cat "ENV:" #PlaySampleEnvName))
  340.                    (append anzeiger)
  341.        )
  342.        (if (= 1 save)
  343.            (textfile   (dest (cat "ENVARC:" #PlaySampleEnvName))
  344.                        (append anzeiger)
  345.            )
  346.        )
  347.     )
  348. )
  349.  
  350. (complete 85)
  351.  
  352. ; wenn es die ENV-Variable noch nicht gibt, muß man sie erzeugen!
  353. (if (= (exists (cat "ENV:" #PlayAnimEnvName) (noreq)) 0)
  354.     (textfile   (dest (cat "ENV:" #PlayAnimEnvName))
  355.                 (append #defaultAnimTool)
  356.     )
  357. )
  358.  
  359. (if (IN drivermask 6)                       ; Anim-Spieler
  360.     (
  361.        (set defaultstr (getenv #PlayAnimEnvName)) ; Inhalt der Variablen holen
  362.  
  363.        (set anzeiger                               ; Eingabe abwickeln
  364.           (askfile (prompt "Welches Programm zum Abspielen von Animationen im ANIM-Format verwenden:")
  365.                    (help   (cat "Hier können Sie bestimmen, welches Programm Sie zum Abspielen von Animationen im ANIM-Format verwenden wollen.\n\n"
  366.                                 "Der auf der CD befindliche MainActor BroadCast ist eine gute Wahl.\n\n"
  367.                                 @askfile-help
  368.                            )
  369.                    )
  370.                    (default defaultstr)
  371.           )
  372.        )
  373.        (textfile   (dest (cat "ENV:" #PlayAnimEnvName))
  374.                    (append anzeiger)
  375.        )
  376.        (if (= 1 save)
  377.            (textfile   (dest (cat "ENVARC:" #PlayAnimEnvName))
  378.                        (append anzeiger)
  379.            )
  380.        )
  381.     )
  382. )
  383.  
  384. (complete 90)
  385.  
  386. ;=============================================================================
  387. ; Sollen Animationen in einer Schleife abgespielt werden
  388.  
  389. (set schleife
  390.        (askbool (prompt  "Sollen Animationen (> 7 MByte) bis zum Abbruch per Maustaste immer endlos wiederholt werden?")
  391.                 (help    "Wenn eine Animation endlos gespielt wird, muß clariSSA zuerst die gesamte Animation laden, was bei langen Dateien Minuten dauern kann. "
  392.                          "Wenn sie Animationen, die größer als 7 MByte sind, wiederholt abspielen wollen, klicken Sie auf 'Ja'\n"
  393.                          "Sollen nur kleine Animationen (< 7 MByte) wiederholt abgespielt werden, damit sie überhaupt in der kurzen Zeit zu sehen sind), klicken Sie auf 'Nein'"
  394.                 )
  395.                 (default 0)
  396.                 (choices "Ja" "Nein")
  397.        )
  398. )
  399.  
  400. (if (= (exists (cat "ENV:" #SchleifenEnvName) (noreq)) 0)
  401.     (textfile   (dest (cat "ENV:" #SchleifenEnvName))
  402.                 (append #defaultSchleife)
  403.     )
  404. )
  405.  
  406. (if (= schleife 1)
  407.     (set aus "1")
  408.     (set aus "0")
  409. )
  410.  
  411. (textfile   (dest (cat "ENV:" #SchleifenEnvName))
  412.             (append aus)
  413. )
  414. (if (= 1 save)
  415.     (textfile   (dest (cat "ENVARC:" #SchleifenEnvName))
  416.             (append aus)
  417.     )
  418. )
  419.  
  420. ;=============================================================================
  421. ; Jetzt noch MakeAssign starten, falls noch nicht geschehen
  422.  
  423. (complete 95)
  424.  
  425. (if (= (exists (cat "ENV:" #EnvDir "/assign_global") (noreq)) 0)
  426.    (if  (= 1 (askbool
  427.                    (prompt  "Sollen jetzt alle logischen Zuweisungen (Assigns) eingerichtet werden, damit Sie sofort mit der CD arbeiten können?")
  428.                    (help    (cat "Wenn Sie mit 'Ja' antworten, wird das Skript " #MakeAssign " ausgeführt, das alle nötigen "
  429.                             "logischen Zuweisungen (Assigns) anlegt. Sie können anschließend sofort mit allen Programmen der "
  430.                             "CD arbeiten.")
  431.                    )
  432.                    (default 0)
  433.                    (choices "Ja" "Nein")
  434.              )
  435.         )
  436.         (execute #MakeAssign)
  437.    )
  438. )
  439.  
  440. (complete 100)
  441.  
  442. (message (cat "Alles Einstellungen wurden Ihren Wünschen entsprechend vorgenommen. "
  443.          "Sie können diese jederzeit mit diesem Programm wieder ändern.\n\n"
  444.          "Wir wünschen viel Spaß mit der CD.\n"
  445.          "\n              Ihre AMIGA-Redaktion")
  446. )
  447.